#!/usr/bin/R

#Author: Michael Pascal Joergler
#Date: 15.10.2013
#Description: script solving week 5 - task a

#rawdata
data <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#plot raw data
plot(data, type="l",ylab="Load",xLab="Time")
#add max value to plot
abline(h=max(data),v=0)
#add min value to plot
abline(h=min(data),v=0)
#add mean value to plot
abline(h=mean(data),v=0)
